0 IFPEEK(887)=111THEN10 1 IFX=0THENX=1:LOAD"SONG",8,1 2 POKE887,111 3 : 4 REM - BY : FRANK ABBING - 5 REM - MARGARETHENSTR.13 - 6 REM - 4422 AHAUS - 7 REM - - 8 REM - FOR: 64-ER SONDERH. - 9 : 10 PRINT"WELCOME YOU !":GOSUB6000:GOSUB6050:POKE53265,0 17 POKE53280,5:POKE53281,0:PRINT"[147][158]" 20 FORA=828TO828+45:READB:POKEA,B:NEXT 22 FORT=50000TO50006:READQ:POKET,Q:NEXT 25 SYS828:VC=53248:CI=56576:POKEVC+24,56 27 POKECI,PEEK(CI)AND252:POKE648,204:PRINT"[151][147]" 35 DATA234,165,1,120,41,251,133,1,160,0,132,251,132,253,169,208,133,252,169,224 40 DATA133,254,162,16,177,251,145,253,200,208,249,230,252,230,254,202,208,242 45 DATA165,1,9,4,133,1,88,96,238,39,208,238,40,208,96 50 MS(1)=10:MS(2)=8:D1=1:D2=6 55 AD=57344:READX:IFX=99THEN200 60 CG=AD+X*8:FORI=0TO7:READQ:POKECG+I,Q:NEXT:GOTO55 65 DATA65,255,255,207,199,167,3,33,224 70 DATA83,255,207,143,223,143,79,15,99 75 DATA90,224,224,226,243,209,201,201,145 77 DATA88,65,65,32,226,210,201,201,145 80 DATA239,255,255,255,255,255,255,255,0 82 DATA244,127,127,127,127,127,127,127,127 85 DATA204,127,127,127,127,127,127,127,0 86 DATA0,255,255,255,255,255,255,255,255 87 DATA207,0,127,127,127,127,127,127,127 90 DATA128,255,255,255,231,255,255,255,255 92 DATA112,254,252,252,252,243,192,132,136 95 DATA110,127,159,158,126,205,13,45,19 97 DATA109,198,241,254,240,225,227,255,195 100 DATA125,19,227,27,79,135,199,251,225 102 DATA85,255,254,253,204,134,149,164,132 105 DATA73,223,111,183,59,99,135,31,31 107 DATA74,200,255,248,241,243,227,255,199 110 DATA75,63,255,63,31,159,159,255,143 112 DATA79,238,141,13,14,40,194,238,239 115 DATA80,63,159,159,127,15,39,19,251 117 DATA76,238,236,236,232,233,233,255,225 120 DATA122,15,63,223,159,143,223,231,143 122 DATA158,255,247,243,1,243,247,255,255 125 DATA159,255,239,207,128,207,239,255,255 127 DATA35,159,64,218,255,104,0,199,255 130 DATA37,1,103,96,3,0,3,129,0 132 DATA38,255,240,192,135,86,90,223,255 135 DATA39,225,4,9,240,1,140,18,18 137 DATA27,254,254,252,252,254,250,255,0 140 DATA29,38,101,102,83,33,35,255,0 142 DATA66,126,126,126,126,126,126,126,126 145 DATA67,0,255,255,255,255,255,255,0 147 DATA108,0,7,31,63,63,127,127,126 150 DATA123,0,224,248,252,252,254,254,254 152 DATA124,126,127,127,63,63,31,7,0 155 DATA126,254,254,254,252,252,248,224,0 199 DATA99 200 P1$="[193][211][157][157][218][216]":B1$="[213][201][157][157][202][203]" 202 DR$="#%[157][157]&'[157][157][]" 203 RD$=" [157][157] [157][157][164][164]" 205 P2$="[176][174][157][157][173][189]":B2$="[207][208][157][157][204][186]" 206 KF$=" [157][157] [146]":PF$=" [157][157]^_[146]" 207 UM$="[176][195][195][174][157][157][157][157][194][194][157][157][157][157][194][194][157][157][157][157][194][194][157][157][157][157][194][194][157][157][157][157][173][195][195][189]" 208 LE$=" [157][157][157][157]  [157][157][157][157]  [157][157][157][157]  [157][157][157][157]  [157][157][157][157] " 210 FORT=0TO62:POKE49152+T,0:NEXT 212 :POKE49152,127:POKE49153,255 215 FORT=3TO29STEP3:POKE49152+T,64:POKE49153+T,1:NEXT 217 POKE49182,127:POKE49183,255 220 V=53248:POKEV,119:POKEV+1,122:POKEV+21,0:POKEV+23,3:POKEV+29,3:POKEV+39,2 222 POKE53240,0:POKE53241,0:POKEV+2,0:POKEV+3,0:GOTO3000 225 : 230 A=4:B=4:X=13:Y=9:XX=119:YY=122 299 PRINT"[147][154]"; 300 PRINT"[180] [154][180] [180] [180] [180] [180] [180] [180] " 305 PRINT"[180]^_ [154][180] [180] [180] [180] [180] [180] [180]^_ " 310 PRINT"[204][175][175][175][154][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154]" 315 PRINT"[180] [180] [180] [180] [180] [180] [180] [180] " 320 PRINT"[180] [180] [180] [180] [180] [180] [180] [180] " 325 PRINT"[204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175]" 330 PRINT"[180] [180] [158][180] [180] [180] [180] [154][180] [180] " 335 PRINT"[180] [180] [158][180] [180] [180] [180] [154][180] [180] " 340 PRINT"[204][175][175][175][204][175][175][175][158][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154][204][175][175][175][204][175][175][175]" 345 FORT=1TO2:PRINT"[180] [158][180] [180] [180] [180] [180] [180] [154][180] " 350 PRINT"[180] [158][180] [180] [180] [180] [180] [180] [154][180] " 355 PRINT"[204][175][175][175][158][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154][204][175][175][175]":NEXT 375 PRINT"[180] [180] [158][180] [180] [180] [180] [154][180] [180] " 380 PRINT"[180] [180] [158][180] [180] [180] [180] [154][180] [180] " 385 PRINT"[204][175][175][175][204][175][175][175][158][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154][204][175][175][175][204][175][175][175]" 386 PRINT"[180] [180] [180] [180] [180] [180] [180] [180] " 387 PRINT"[180] [180] [180] [180] [180] [180] [180] [180] " 388 PRINT"[204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175]" 390 PRINT"[180] [154][180] [180] [180] [180] [180] [180] [180] " 395 PRINT"[180]^_ [154][180] [180] [180] [180] [180] [180] [180]^_ " 400 PRINT"[204][175][175][175][154][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154]" 405 FORT=1TO5:POKE214,0:SYS58640:PRINTTAB(5+T*4)P1$:POKE214,21:SYS58640 410 PRINTTAB(5+T*4)P2$"":NEXTT:PRINT"[158]" 412 FORT=1TO4:POKE214,9:SYS58640:PRINTTAB(5+T*4)B1$:POKE214,12:SYS58640 414 PRINTTAB(5+T*4)B1$"":NEXTT 415 POKE214,12:SYS58640:PRINTTAB(21)B2$ 420 FORT=0TO39:POKE53184+T,160:NEXT 425 POKE214,24:SYS58640:PRINT"BELAGERUNG II - BY FRANK ABBING " 430 FORI=0TO23:FORT=32TO39:POKE52224+T+40*I,160:NEXTT,I 432 POKE214,1:SYS58640 433 PRINTTAB(35)"[193][211]" 434 PRINTTAB(35)"[218][216]" 436 PRINTTAB(35)"10" 440 PRINTTAB(33)""N$(1) 442 POKE214,19:SYS58640 443 PRINTTAB(35)"08" 445 PRINTTAB(35)"[213][201]" 446 PRINTTAB(35)"[202][203]":POKE53265,27:GOSUB7010 447 POKE214,16:SYS58640:PRINTTAB(33)""N$(2) 448 REM - SPIELER/REITER (JOY) - 449 ZU=1:POKEV+21,1 450 POKE214,0:SYS58640:PRINTTAB(34)UM$ 451 POKE214,18:SYS58640:PRINTTAB(34)LE$:GOSUB2000:GOSUB1200:GOSUB2000:GOSUB6040 452 J=PEEK(56320) 455 IFXX<247AND(JAND8)=0THENA=A+1:X=X+4:XX=XX+32 460 IFXX>23AND(JAND4)=0THENA=A-1:X=X-4:XX=XX-32 465 IFYY<218AND(JAND2)=0THENB=B+1:Y=Y+3:YY=YY+24 470 IFYY>50AND(JAND1)=0THENB=B-1:Y=Y-3:YY=YY-24 475 POKEV+0,XX:POKEV+1,YY 480 IFZU=1AND(JAND16)=0THEN510 485 IFZU=2AND(JAND16)=0THEN526 490 IFZU=2ANDPEEK(203)=4THENPOKEV+21,1:ZU=1 500 SYS50000:GOTO452 510 N=52224+X+40*Y:FX=X:FY=Y:NO=N 515 IFPEEK(N)=65ORPEEK(N)=112THEN520 517 GOTO500 520 ZU=2:POKEV+2,XX:POKEV+3,YY:POKEV+40,PEEK(V+39):POKEV+21,3:X1=A:Y1=B 522 FA=PEEK(55296+X+40*Y) 523 IFFA>=16THENFA=FA-16:GOTO523 525 GOTO500 526 KL=52224+X+40*Y:IFPEEK(KL)=65ORPEEK(KL)=112ORPEEK(KL)=35THEN500 530 AF=PEEK(55296+X+40*Y) 531 IFAF>=16THENAF=AF-16:GOTO531 532 IFFA=7AND(AF=14ORAF=1)THEN500 535 X2=ABS(X1-A):Y2=ABS(Y1-B) 537 N=NO:M=PEEK(N):N=M:IFN=112THEN550 538 IFN=65THEN540 539 GOTO500 540 IF(X2=1ANDY2=2)OR(X2=2ANDY2=1)THEN600 545 GOTO500 550 IF(X2=1ANDY2=1)OR(X2=1ANDY2=0)OR(X2=0ANDY2=1)THEN610 555 GOTO500 600 GOSUB705:POKE646,AF:POKE211,X:POKE214,Y:SYS58640:PRINTP1$ 602 IFAF=1THENPOKE646,1:POKE211,X:POKE214,Y:SYS58640:PRINTP2$ 605 GOTO650 610 GOSUB705:POKE646,AF:POKE211,X:POKE214,Y:SYS58640:PRINTP2$ 612 IFAF=1THENPOKE646,1:POKE211,X:POKE214,Y:SYS58640:PRINTP1$ 615 GOTO650 650 : 652 IFFA<>1THENPOKE646,FA:POKE211,FX:POKE214,FY:SYS58640:PRINTKF$:GOTO670 655 IFFA=1THENPOKE646,1:POKE211,FX:POKE214,FY:SYS58640:PRINTPF$:GOTO670 670 : 675 : 700 GOTO800 705 KL=52224+X+40*Y:LK=PEEK(KL) 706 IFLK<>85ANDLK<>79THENRETURN 707 GOSUB6100 708 MS(2)=MS(2)-1 709 M$=STR$(MS(2)):M$=RIGHT$(M$,1):MM$="0"+M$ 710 POKE214,19:SYS58640:PRINTTAB(35)""MM$ 717 : 720 RETURN 790 REM --- BURG ZIEHT --- 800 POKE214,0:SYS58640:PRINTTAB(34)LE$ 802 POKE214,18:SYS58640:PRINTTAB(34)UM$ 803 ZU=1:POKEV+21,1 804 GOSUB2000:GOSUB1200:GOSUB2000:GOSUB6040 805 J=PEEK(56321) 807 IFXX<247AND(JAND8)=0THENA=A+1:X=X+4:XX=XX+32 810 IFXX>23AND(JAND4)=0THENA=A-1:X=X-4:XX=XX-32 812 IFYY<218AND(JAND2)=0THENB=B+1:Y=Y+3:YY=YY+24 815 IFYY>50AND(JAND1)=0THENB=B-1:Y=Y-3:YY=YY-24 820 POKEV+0,XX:POKEV+1,YY 825 IFZU=1AND(JAND16)=0THEN850 830 IFZU=2AND(JAND16)=0THEN900 835 IFZU=2ANDPEEK(203)=4THENPOKEV+21,1:ZU=1 840 SYS50000:GOTO805 850 N=52224+X+40*Y:FX=X:FY=Y:NO=N 855 IFPEEK(N)=85ORPEEK(N)=79THEN860 857 GOTO840 860 ZU=2:POKEV+2,XX:POKEV+3,YY:POKEV+40,PEEK(V+39):POKEV+21,3:X1=A:Y1=B 865 FA=PEEK(55296+X+40*Y) 870 IFFA>=16THENFA=FA-16:GOTO870 875 GOTO840 900 KL=52224+X+40*Y:IFPEEK(KL)=85ORPEEK(KL)=79ORPEEK(KL)=35THEN840 905 AF=PEEK(55296+X+40*Y) 910 IFAF>=16THENAF=AF-16:GOTO910 912 IFAF=1THEN840 915 X2=ABS(X1-A):Y2=ABS(Y1-B) 920 N=NO:M=PEEK(N):N=M:IFN=79THEN940 922 REM - RITTER - 930 IF(X2=1ANDY2=1)OR(X2=1ANDY2=0)OR(X2=0ANDY2=1)THEN1000 932 GOTO840 940 IF(X2=1ANDY2=1)OR(X2=1ANDY2=0)OR(X2=0ANDY2=1)THEN1010 941 IF(X2=2ANDY2=2)OR(X2=2ANDY2=0)OR(X2=0ANDY2=2)THEN1010 942 IF(X2=3ANDY2=3)OR(X2=3ANDY2=0)OR(X2=0ANDY2=3)THEN1010 950 GOTO840 990 KL=52224+X+40*Y:LK=PEEK(KL) 994 IFLK<>112ANDLK<>65THENRETURN 995 GOSUB6050 996 MS(1)=MS(1)-1 997 M$=STR$(MS(1)):M$=RIGHT$(M$,1):MM$="0"+M$ 998 POKE214,4:SYS58640:PRINTTAB(35)""MM$: 999 RETURN 1000 GOSUB990:POKE646,AF:POKE211,X:POKE214,Y:SYS58640:PRINTB1$:GOTO1100 1010 GOSUB990:POKE646,AF:POKE211,X:POKE214,Y:SYS58640:PRINTB2$:GOTO1100 1100 POKE646,FA:POKE211,FX:POKE214,FY:SYS58640:PRINTKF$ 1110 GOTO449 1200 REM - COMPUTER ZIEHT - 1201 DX=0:DY=0:GOTO1500 1202 I=INT(RND(1)*4)+1:DX=0:DY=0 1205 IFI=1THENDY=-3 1210 IFI=2THENDX=4 1212 IFI=3THENDY=3 1215 IFI=4THENDX=-4 1217 T1=D1+DX:T2=D2+DY 1220 IF(T1<1)OR(T1>29)THEN1202 1225 IF(T2<0)OR(T2>21)THEN1202 1250 N=52224+(D1+DX)+40*(D2+DY) 1255 IFPEEK(N)=65ORPEEK(N)=112THENJK=1:GOSUB996 1260 IFPEEK(N)=79THENLK=79:JK=1:GOSUB708 1262 IFPEEK(N)=85THENJK=1:GOSUB708 1270 FA=PEEK(55296+D1+40*D2) 1272 IFFA>=16THENFA=FA-16:GOTO1272 1275 D1=D1+DX:D2=D2+DY 1280 AF=PEEK(55296+D1+40*D2) 1282 IFAF>=16THENAF=AF-16:GOTO1282 1285 IFFA=1THENRD$=" [157][157]^_[157][157][164][164]" 1290 POKE646,AF:POKE211,D1:POKE214,D2:SYS58640:PRINTDR$ 1295 POKE646,FA:POKE211,D1-DX:POKE214,D2-DY:SYS58640:PRINTRD$ 1298 IFJK=1THENGOSUB6020 1299 RD$=" [157][157] [157][157][164][164]" 1300 JK=0:RETURN 1500 IFPEEK(52224+D1+40*(D2-3))<>160THENDY=-3:GOTO1217 1501 IFPEEK(52224+(D1+4)+40*D2)<>160THENDX=4:GOTO1217 1502 IFPEEK(52224+D1+40*(D2+3))<>160THENDY=3:GOTO1217 1503 IFPEEK(52224+(D1-4)+40*D2)<>160THENDX=-4:GOTO1217 1505 GOTO1202 2000 IFLK=79THENGW=3:GOTO5000 2001 IFMS(2)=0THENGW=1:GOTO5000 2002 IFMS(1)=0THENGW=2:GOTO5000 2005 RETURN 3000 PRINT"[147]";:SYS35000:POKE54275,8:POKE848,65:POKE54277,123 3001 PRINTTAB(6)"- 64-ER SONDERH. PRESENTS - 3002 [153]"POKE *LENLENRNDLENLENLENPEEK *LENRND*LENRNDLENLENLENPEEKLENRNDPEEK PEEKPEEK PEEK*LENRND LENLENLENLENLEN 3003 PRINT"[152] [172][195][195][187][195][195][195][194] [172][195][187][172][195][187][195][195][195][194][195][187][194] [194][194] [194][172][195][187] [195][195][195][195][195] 3004 [153]"LIST *LENLENRNDLENLENLENPEEK *LENRND*LENRNDLENLENLENPEEKLENRNDPEEK PEEKPEEK PEEK*LENRND LENLENLENLENLEN 3005 PRINT"[158] [172][195][195][187][195][195][195][194] [172][195][187][172][195][187][195][195][195][194][195][187][194] [194][194] [194][172][195][187] [195][195][195][195][195] 3007 [153]" PEEK PEEKPEEK PEEK PEEK PEEKPEEK PEEK PEEK PEEKPEEK PEEKPEEK(null)WAITPEEKPEEK PEEK PEEK 3010 PRINT" [194][195][190][194][195] [194] [194][195][194][194][195][195][194][195] [194][195][190][194] [194][194][223][194][194][195][195] [194] [194] 3012 [153]" PEEK PEEKPEEK PEEK PEEK PEEKPEEK PEEKPEEK PEEK(null)(null)WAITPEEK PEEKPEEK PEEKPEEK PEEK PEEK PEEK 3015 PRINT" [188][195][195][190][195][195][195][188][195][195][194] [194][188][195][190][195][195][195][194] [194][188][195][190][194] [194][188][195][190] [195][195][195][195][195] 3020 [153]"LIST LOGLENLENCOSLENLENLENLOGLENLENPEEK PEEKLOGLENCOSLENLENLENPEEK PEEKLOGLENCOSPEEK PEEKLOGLENCOS LENLENLENLENLEN 3025 PRINT"[152] [188][195][195][190][195][195][195][188][195][195][194] [194][188][195][190][195][195][195][194] [194][188][195][190][194] [194][188][195][190] [195][195][195][195][195] 3027 [153]"POKE LOGLENLENCOSLENLENLENLOGLENLENPEEK PEEKLOGLENCOSLENLENLENPEEK PEEKLOGLENCOSPEEK PEEKLOGLENCOS LENLENLENLENLEN 3030 PRINTTAB(5)"WRITTEN 1987 BY FRANK ABBING! 3031 [153][163]16)"DEFPRESS F1" 3032 [153]"ON@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 3035 [153]"ON@@@@ATN(null)@@@OR^@@@(null)(null)@@@(null)RIGHT$@@@OR^@@@(null)RIGHT$@@@ATN(null)@@@@" 3037 [153]"ON@@@@(null)(null)@@@/EXP@@@(null)SQR@@@MID$(null)@@@/EXP@@@MID$(null)@@@(null)(null)@@@@" 3040 [129]T[178]0[164]39:[151]53184[170]T,0:[130] 3045 [151]53265,27 3050 [161]A$:[139]A$[179][177]"INPUT"[167]3050 3055 [151]56334,0:[151]788,49:[151]789,234:[151]56334,1 3060 [151]677,0:[141]6000 3065 [129]T[178]1[164]9:[158]59777 3070 [141]6040:[130]T 3075 [129]T[178]1[164]12:[158]59626 3080 [141]6040:[130]T 3083 N$(1)[178]"":N$(2)[178]"":[158]59777:[151]677,0:[141]6040 3084 [151]214,14:[158]58640:[153]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW 3085 POKE214,15:SYS58640:PRINT" GEBEN SIE JETZT IHREN NAMEN AN... " 3086 POKE214,16:SYS58640:PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] 3087 [151]214,18:[158]58640:[133]"SYS SPIELER 1 (REITER) ";N$(1) 3088 [139]N$(1)[178]""[176]N$(1)[178][199](13)[167]3087 3090 [151]214,20:[158]58640:[133]"SYS SPIELER 2 (RITTER) ";N$(2) 3092 [139]N$(2)[178]""[176]N$(2)[178][199](13)[167]3090 3095 N$(1)[178][200](N$(1),6) 3097 N$(2)[178][200](N$(2),6) 3100 [151]677,14 3105 [129]T[178]1[164]14:[158]59777:[141]6040:[130]T:[151]677,0 3110 [129]T[178]1[164]14:[158]59626:[141]6040:[130]T:[129]E[178]1[164]1000:[130] 3200 [151]53265,0:[137]225 5000 [151]53248[170]21,0:[129]T[178]1[164]2000:[130]:[158]35000 5005 [129]T[178]0[164]255:[151]53281,T:[130]:[151]53281,0 5010 [153]"LOADSYS" 5015 [153]" DIE BELAGERUNG DER BURG IST BEENDET!CONT" 5020 [139]GW[178]1[167]5050 5025 [139]GW[178]2[167]5100 5030 [139]GW[178]3[167]5150 5050 [153]" DIE REITER HABEN DIE VERTEIDIGER 5055 PRINT" GESCHLAGEN, UND DIE BURG EINGENOMMEN! 5060 [153]" UEBERLEBENDE REITER :"MS(1) 5065 [137]5200 5100 [153]" DIE RITTER HABEN IHRE BURG TAPFER 5105 PRINT" VERTEIDIGT, UND DIE GEGNERISCHEN 5110 [153]" REITERSCHAREN BESIEGT. 5115 PRINT" UEBERLEBENDE RITTER :"MS(2) 5120 GOTO5200 5150 PRINT" IN EINER TOLLKUEHNEN SCHLACHT 5155 [153]" IST ES DEN REITERN GELUNGEN, DEN 5160 PRINT" ANFUEHRER DER RITTER ZU BESIEGEN! 5165 [153]" UEBERLEBENDE REITER :"MS(1) 5170 [137]5200 5200 [153]" NOCH EIN SPIEL (J/N) ? 5205 GETA$ 5210 IFA$="J"THENGOSUB7000:RUN 5215 IFA$="N"THENFORT=1TO24:SYS59626:NEXT:GOSUB7010:POKE648,4:POKE808,213:END 5220 GOTO5205 6000 FORT=0TO24:POKE54272+T,0:NEXT 6005 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W0=SI+4:A0=SI+5:H0=SI+6:L0=SI+24 6007 LF=SI+7:HF=SI+8:LT=SI+9:HT=SI+10:W1=SI+11:A1=SI+12:H1=SI+13 6010 POKEW0,0:POKEA0,13:POKETL,255:POKETH,7 6012 POKEW1,0:POKEA1,13:POKELT,255:POKEHT,3:POKEL0,15:RETURN 6019 REM - DRACHE - 6020 POKEFH,3:POKEW0,65 6025 POKEHF,2:POKEW1,65 6027 FORC=255TO30STEP-1:POKEFL,T/10:POKELF,255-(T/10):NEXT 6030 POKEW0,0:POKEW1,0:RETURN 6040 POKEW0,65:POKEA0,8:POKEFH,80:FORC=1TO25:NEXT:POKEA0,13:POKEW0,0:RETURN 6050 POKETH,3:POKEW1,65:POKEHF,26:POKELF,20 6055 POKEFH,34:POKEFL,207:FORM=1TO3:POKEW0,0:POKEW0,65:FORC=1TO75:NEXTC,M 6056 POKEHF,34:POKELF,207 6057 POKEFH,46:POKEFL,118:POKEW0,0:POKEW0,65:FORC=1TO750:NEXTC:POKEW0,0 6060 POKEW1,0:POKETH,7:RETURN 6100 POKETH,3:POKEW1,65:POKEHF,8:POKELF,180:POKEA0,8 6105 POKEFH,5:POKEFL,123:FORM=1TO8:POKEW0,0:POKEW0,65:FORC=1TO100:NEXTC,M 6107 POKEW1,0:POKEW1,65:POKEHF,2:POKELF,190 6110 POKEFH,4:POKEFL,90:POKEA0,13:POKEW0,0:POKEW0,65:FORM=1TO1000:NEXT 6120 POKEW0,0:POKEW1,0:RETURN 7000 POKE56334,0:POKE788,49:POKE789,234:POKE56334,1:RETURN 7010 POKEW0,65:POKEW1,65 7020 FORG=1TO100 7025 S=INT(RND(1)*10)+50 7027 POKEFH,S:POKEHF,S+1 7030 FORB=1TO15:NEXTB,G 7032 FORF=STO0STEP-.2 7033 POKEFH,F:POKEHF,F+1:NEXTF 7035 POKEW0,0:POKEW1,0 7040 RETURN